Language/OS - Multiplatform Resource Library/LANGUAGE OS.iso/lisp/eulisp/comp0_89.lha/Feel/Boot/Compiler/comp-utl.sc

Text File | 1993-07-16 | 12KB | 1 lines

(dependencies (standard0 list-fns module-operators) names (comp-utl) length 2505 nslots 16 code ((36 (%%-big-arg-%% 17)) (5 (%%-big-arg-%% 0)) (3 0) (31 (%%-big-arg-%% 220)) (17 1) (36 (%%-big-arg-%% 27)) (5 (%%-big-arg-%% 0)) (4 (%%-static-%% . 35)) (46) (1 (%%-link-me-%% boot . make-installed-module)) (34 2) (36 (%%-big-arg-%% 150)) (5 (%%-big-arg-%% 0)) (8 3) (4 (%%-static-%% . 33)) (5 (%%-me-local--%% . path-open)) (3 0) (39) (8 0) (5 (%%-me-local--%% . make-search-path)) (3 0) (39) (28 1) (5 (%%-me-local--%% . fast-file-name)) (3 0) (39) (28 1) (5 (%%-me-local--%% . get-module-stream)) (3 0) (39) (28 1) (5 (%%-me-local--%% . interface-file-name)) (3 0) (39) (28 1) (5 (%%-me-local--%% . get-expander)) (3 0) (39) (28 1) (5 (%%-me-local--%% . sc-file-name)) (3 0) (39) (28 1) (5 (%%-me-local--%% . encapsulated-static-file-name)) (3 0) (39) (28 1) (5 (%%-me-local--%% . encapsulated-byte-file-name)) (3 0) (39) (28 1) (5 (%%-me-local--%% . bytecode-file-name)) (3 0) (39) (28 1) (5 (%%-me-local--%% . read-object)) (3 0) (39) (28 1) (5 (%%-me-local--%% . write-object)) (3 0) (39) (28 1) (17 1) (1 (%%-link-me-%% boot . install-local-bindings)) (34 3) (17 1) (36 (%%-big-arg-%% 28)) (5 (%%-big-arg-%% 1)) (8 3) (4 (%%-static-%% . 34)) (1 (%%-link-me-%% boot . make-interface)) (34 2) (17 1) (14 2 1) (37) (22 0) (36 (%%-big-arg-%% 115)) (1 (%%-link-me-%% init . make)) (1 (%%-link-me-%% errors . <condition-class>)) (4 (%%-static-%% . 0)) (3 0) (39) (9) (4 (%%-static-%% . 1)) (3 0) (39) (29) (4 (%%-static-%% . 2)) (3 0) (39) (29) (1 (%%-link-me-%% errors . <condition>)) (3 0) (39) (3 0) (39) (29) (4 (%%-static-%% . 3)) (3 0) (39) (29) (3 0) (3 0) (39) (29) (4 (%%-static-%% . 4)) (3 0) (39) (29) (3 0) (3 0) (39) (29) (4 (%%-static-%% . 5)) (3 0) (39) (29) (3 0) (3 0) (39) (29) (18) (11) (34 -2) (7 (%%-me-local--%% . read-error)) (36 (%%-big-arg-%% 115)) (1 (%%-link-me-%% init . make)) (1 (%%-link-me-%% errors . <condition-class>)) (4 (%%-static-%% . 0)) (3 0) (39) (9) (4 (%%-static-%% . 6)) (3 0) (39) (29) (4 (%%-static-%% . 2)) (3 0) (39) (29) (1 (%%-link-me-%% errors . <condition>)) (3 0) (39) (3 0) (39) (29) (4 (%%-static-%% . 3)) (3 0) (39) (29) (3 0) (3 0) (39) (29) (4 (%%-static-%% . 4)) (3 0) (39) (29) (3 0) (3 0) (39) (29) (4 (%%-static-%% . 5)) (3 0) (39) (29) (3 0) (3 0) (39) (29) (18) (11) (34 -2) (7 (%%-me-local--%% . cannot-open-path)) (36 (%%-big-arg-%% 1631)) (11) (4 (%%-static-%% . 10)) (5 (%%-big-arg-%% 0)) (39) (51 3) (7 (%%-me-local--%% . make-search-path)) (36 (%%-big-arg-%% 1285)) (11) (4 (%%-static-%% . 10)) (6 1) (39) (51 -3) (7 (%%-me-local--%% . path-open)) (36 (%%-big-arg-%% 1234)) (11) (4 (%%-static-%% . 10)) (6 2) (39) (51 2) (7 (%%-me-local--%% . get-expander)) (36 (%%-big-arg-%% 1183)) (11) (4 (%%-static-%% . 10)) (6 3) (39) (51 1) (7 (%%-me-local--%% . interface-file-name)) (36 (%%-big-arg-%% 1113)) (11) (4 (%%-static-%% . 10)) (6 4) (39) (51 1) (7 (%%-me-local--%% . get-module-stream)) (36 (%%-big-arg-%% 1062)) (11) (4 (%%-static-%% . 10)) (6 5) (39) (51 1) (7 (%%-me-local--%% . fast-file-name)) (36 (%%-big-arg-%% 1011)) (11) (4 (%%-static-%% . 10)) (6 6) (39) (51 1) (7 (%%-me-local--%% . bytecode-file-name)) (36 (%%-big-arg-%% 960)) (11) (4 (%%-static-%% . 10)) (6 7) (39) (51 1) (7 (%%-me-local--%% . encapsulated-byte-file-name)) (36 (%%-big-arg-%% 909)) (11) (4 (%%-static-%% . 10)) (6 8) (39) (51 1) (7 (%%-me-local--%% . encapsulated-static-file-name)) (36 (%%-big-arg-%% 858)) (11) (4 (%%-static-%% . 10)) (6 9) (39) (51 1) (7 (%%-me-local--%% . sc-file-name)) (36 (%%-big-arg-%% 571)) (11) (4 (%%-static-%% . 10)) (6 10) (39) (51 -3) (7 (%%-me-local--%% . write-object)) (36 (%%-big-arg-%% 389)) (11) (4 (%%-static-%% . 10)) (6 11) (39) (51 -3) (7 (%%-me-local--%% . read-object)) (36 (%%-big-arg-%% 158)) (1 (%%-link-me-%% init . make)) (1 (%%-link-me-%% class-names . <generic-function>)) (4 (%%-static-%% . 0)) (3 0) (39) (9) (4 (%%-static-%% . 23)) (3 0) (39) (29) (4 (%%-static-%% . 24)) (3 0) (39) (29) (4 (%%-static-%% . 25)) (3 0) (39) (29) (4 (%%-static-%% . 26)) (3 0) (39) (29) (1 (%%-link-me-%% class-names . <method>)) (3 0) (39) (29) (4 (%%-static-%% . 27)) (3 0) (39) (29) (4 (%%-static-%% . 28)) (3 0) (39) (29) (4 (%%-static-%% . 29)) (3 0) (39) (29) (3 0) (3 0) (39) (29) (4 (%%-static-%% . 30)) (3 0) (39) (29) (1 (%%-link-me-%% class-names . <object>)) (3 0) (39) (9) (1 (%%-link-me-%% class-names . <object>)) (3 0) (39) (29) (18) (3 0) (39) (29) (18) (11) (34 -2) (7 (%%-me-local--%% . safe-write)) (36 (%%-big-arg-%% 142)) (1 (%%-link-me-%% init . add-method)) (4 (%%-me-local--%% . safe-write)) (36 (%%-big-arg-%% 120)) (1 (%%-link-me-%% init . make)) (36 (%%-big-arg-%% 22)) (1 (%%-link-me-%% init . generic-method-class)) (4 (%%-me-local--%% . safe-write)) (10) (34 1) (4 (%%-static-%% . 31)) (3 0) (39) (9) (1 (%%-link-me-%% class-names . <object>)) (3 0) (39) (9) (1 (%%-link-me-%% class-names . <object>)) (3 0) (39) (29) (18) (3 0) (39) (29) (4 (%%-static-%% . 27)) (3 0) (39) (29) (4 (%%-static-%% . 28)) (3 0) (39) (29) (4 (%%-static-%% . 32)) (3 0) (39) (29) (36 (%%-big-arg-%% 60)) (8 12) (40 2) (3 0) (39) (29) (18) (11) (34 -2) (11) (33 2) (18) (36 (%%-big-arg-%% 25)) (11) (4 (%%-static-%% . 10)) (6 12) (39) (51 1) (7 (%%-me-local--%% . safe-read)) (18) (3 1) (37) (18) (1 (%%-link-me-%% streams . read)) (16) (62 1) (37) (1 (%%-link-me-%% streams1 . write)) (12) (12) (3 0) (39) (11) (14 7 3) (9) (13 4) (34 -2) (22 2) (12) (20 0 0) (36 (%%-big-arg-%% 41)) (4 (%%-me-local--%% . path-open)) (8 4) (32 (%%-big-arg-%% 13)) (8 4) (26) (31 (%%-big-arg-%% 10)) (4 (%%-static-%% . 22)) (8 6) (3 0) (12) (26) (31 (%%-big-arg-%% 644)) (10) (16) (20 0 1) (18) (1 (%%-link-me-%% calls . fn-unwind-protect)) (36 (%%-big-arg-%% 43)) (12) (40 0) (36 (%%-big-arg-%% 15)) (8 4) (40 0) (14 7 3) (62 2) (37) (1 (%%-link-me-%% streams1 . close)) (10) (19 0 1) (13 2) (9) (13 3) (33 1) (1 (%%-link-me-%% init . apply)) (1 (%%-link-me-%% standard0 . make-instance)) (11) (19 0 0) (36 (%%-big-arg-%% 22)) (4 (%%-me-local--%% . safe-read)) (8 6) (19 0 1) (3 0) (31 (%%-big-arg-%% -181)) (3 0) (39) (12) (14 6 4) (9) (13 5) (34 -3) (22 2) (12) (20 0 0) (36 (%%-big-arg-%% 55)) (4 (%%-me-local--%% . path-open)) (8 4) (32 (%%-big-arg-%% 13)) (8 4) (26) (31 (%%-big-arg-%% 10)) (4 (%%-static-%% . 20)) (8 6) (4 (%%-static-%% . 21)) (3 0) (39) (9) (3 1) (3 0) (39) (29) (18) (12) (26) (31 (%%-big-arg-%% 469)) (10) (16) (20 0 1) (18) (1 (%%-link-me-%% calls . fn-unwind-protect)) (36 (%%-big-arg-%% 43)) (12) (40 0) (36 (%%-big-arg-%% 15)) (8 4) (40 0) (14 7 3) (62 2) (37) (1 (%%-link-me-%% streams1 . close)) (10) (19 0 1) (13 2) (9) (13 3) (33 1) (4 (%%-me-local--%% . safe-write)) (36 (%%-big-arg-%% 61)) (1 (%%-link-me-%% list-fns . fold)) (36 (%%-big-arg-%% 60)) (8 6) (40 2) (36 (%%-big-arg-%% 33)) (1 (%%-link-me-%% init . class-slot-descriptions)) (1 (%%-link-me-%% classes . class-of)) (8 9) (19 0 0) (62 1) (10) (33 1) (3 0) (12) (34 3) (11) (19 0 1) (11) (14 5 3) (9) (13 4) (33 2) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% standard0 . slot-description-initargs)) (8 5) (10) (34 1) (26) (36 (%%-big-arg-%% 41)) (1 (%%-link-me-%% standard0 . slot-value)) (8 4) (19 0 0) (36 (%%-big-arg-%% 19)) (1 (%%-link-me-%% init . slot-description-name)) (8 10) (10) (33 1) (11) (34 2) (12) (39) (14 5 2) (39) (37) (1 (%%-link-me-%% extras0 . format)) (3 0) (4 (%%-static-%% . 19)) (8 4) (3 0) (39) (12) (14 7 4) (9) (13 5) (34 -3) (1 (%%-link-me-%% extras0 . format)) (3 0) (4 (%%-static-%% . 18)) (8 4) (3 0) (39) (12) (14 7 4) (9) (13 5) (34 -3) (1 (%%-link-me-%% extras0 . format)) (3 0) (4 (%%-static-%% . 17)) (8 4) (3 0) (39) (12) (14 7 4) (9) (13 5) (34 -3) (1 (%%-link-me-%% extras0 . format)) (3 0) (4 (%%-static-%% . 16)) (8 4) (3 0) (39) (12) (14 7 4) (9) (13 5) (34 -3) (1 (%%-link-me-%% extras0 . format)) (3 0) (4 (%%-static-%% . 15)) (8 4) (3 0) (39) (12) (14 7 4) (9) (13 5) (34 -3) (1 (%%-link-me-%% streams1 . open)) (36 (%%-big-arg-%% 29)) (1 (%%-link-me-%% extras0 . format)) (3 0) (4 (%%-static-%% . 14)) (8 7) (3 0) (39) (12) (34 -3) (3 0) (11) (14 6 3) (9) (13 4) (34 -2) (1 (%%-link-me-%% extras0 . format)) (3 0) (4 (%%-static-%% . 13)) (8 4) (3 0) (39) (12) (14 7 4) (9) (13 5) (34 -3) (1 (%%-link-me-%% module-operators . get-module)) (12) (62 1) (1 (%%-link-me-%% module-operators . dynamic-access)) (10) (8 4) (14 7 3) (62 2) (37) (22 3) (12) (20 0 0) (11) (20 0 1) (10) (20 0 2) (1 (%%-link-me-%% calls . simple-call/cc)) (36 (%%-big-arg-%% 14)) (12) (40 1) (14 6 2) (62 1) (37) (22 1) (10) (20 0 0) (36 (%%-big-arg-%% 33)) (1 (%%-link-me-%% init . mapc)) (36 (%%-big-arg-%% 92)) (8 5) (40 1) (8 4) (19 1 0) (3 0) (12) (34 -3) (18) (36 (%%-big-arg-%% 67)) (1 (%%-link-me-%% init . error)) (36 (%%-big-arg-%% 43)) (1 (%%-link-me-%% extras0 . format)) (3 0) (4 (%%-static-%% . 12)) (8 8) (19 1 0) (3 0) (39) (9) (8 10) (19 1 1) (3 0) (39) (29) (18) (12) (34 -3) (4 (%%-me-local--%% . cannot-open-path)) (3 0) (12) (34 -3) (17 3) (3 0) (37) (22 1) (10) (20 0 0) (1 (%%-link-me-%% calls . simple-call/cc)) (36 (%%-big-arg-%% 14)) (12) (40 1) (14 4 2) (62 1) (37) (22 1) (10) (20 0 0) (1 (%%-link-me-%% calls . push-handler)) (36 (%%-big-arg-%% 115)) (12) (40 2) (62 1) (18) (36 (%%-big-arg-%% 89)) (11) (19 2 0) (36 (%%-big-arg-%% 77)) (1 (%%-link-me-%% init . apply)) (1 (%%-link-me-%% streams1 . open)) (36 (%%-big-arg-%% 43)) (1 (%%-link-me-%% extras0 . format)) (3 0) (4 (%%-static-%% . 11)) (8 12) (19 1 0) (3 0) (39) (9) (8 14) (19 3 1) (3 0) (39) (29) (18) (12) (34 -3) (8 8) (19 3 2) (3 0) (39) (12) (34 -3) (10) (33 1) (1 (%%-link-me-%% calls . pop-handler)) (62 0) (18) (15 3) (37) (9) (19 0 0) (15 4) (3 0) (16) (9) (13 3) (33 1) (22 3) (11) (20 0 0) (1 (%%-link-me-%% others . getenv)) (8 4) (62 1) (9) (32 (%%-big-arg-%% 11)) (9) (31 (%%-big-arg-%% 6)) (11) (15 2) (10) (16) (20 0 2) (18) (4 (%%-static-%% . 7)) (10) (16) (20 0 1) (18) (9) (19 0 2) (42) (32 (%%-big-arg-%% 16)) (4 (%%-static-%% . 8)) (3 0) (39) (15 5) (37) (1 (%%-link-me-%% strings . string-length)) (10) (19 0 2) (62 1) (10) (10) (20 0 1) (17 2) (1 (%%-link-me-%% gens . reverse)) (36 (%%-big-arg-%% 54)) (1 (%%-link-me-%% init . mapcar)) (36 (%%-big-arg-%% 49)) (8 6) (40 1) (36 (%%-big-arg-%% 26)) (3 0) (4 (%%-static-%% . 7)) (4 (%%-static-%% . 7)) (3 0) (8 11) (31 (%%-big-arg-%% 43)) (3 0) (12) (34 -3) (14 6 2) (16) (9) (13 3) (33 1) (1 (%%-link-me-%% strings . substring)) (10) (19 0 2) (12) (26) (8 4) (27) (14 6 4) (62 3) (37) (36 (%%-big-arg-%% 24)) (1 (%%-link-me-%% init . =)) (8 6) (8 4) (19 0 1) (11) (33 2) (32 (%%-big-arg-%% 34)) (11) (1 (%%-link-me-%% arith . -)) (8 5) (4 (%%-static-%% . 9)) (3 0) (39) (62 -2) (39) (11) (14 6 2) (39) (37) (36 (%%-big-arg-%% 40)) (1 (%%-link-me-%% ccc . equal)) (1 (%%-link-me-%% strings . string-ref)) (8 4) (19 0 2) (8 8) (62 2) (8 4) (19 0 0) (11) (33 2) (32 (%%-big-arg-%% 81)) (1 (%%-link-me-%% arith . +)) (8 4) (4 (%%-static-%% . 9)) (3 0) (62 -3) (1 (%%-link-me-%% arith . +)) (8 5) (4 (%%-static-%% . 9)) (3 0) (62 -3) (8 4) (1 (%%-link-me-%% arith . -)) (8 7) (4 (%%-static-%% . 9)) (3 0) (39) (62 -2) (39) (8 4) (39) (12) (14 8 4) (31 (%%-big-arg-%% -174)) (1 (%%-link-me-%% arith . +)) (8 4) (4 (%%-static-%% . 9)) (3 0) (62 -3) (12) (12) (12) (14 8 4) (31 (%%-big-arg-%% -205))) statics (name read-error direct-superclasses direct-slot-descriptions metaclass-hypotheses direct-initargs cannot-open-path 0 "." 1 comp-utl "~a/~a" "path-open: cannot open stream for (~a) ~a" "~a.i" "~a.em" "~a.fm" "~a.bc" "~a.ebc" "~a.est" "~a.sc" ("./") output ("./") safe-write lambda-list (object stream) method-class argtype 2 methods domain signature function (path-open make-search-path fast-file-name get-module-stream interface-file-name get-expander sc-file-name encapsulated-static-file-name encapsulated-byte-file-name bytecode-file-name read-object write-object) ((strip (union (import standard0) (import list-fns) (import module-operators))) path-open make-search-path fast-file-name get-module-stream interface-file-name get-expander sc-file-name encapsulated-static-file-name encapsulated-byte-file-name bytecode-file-name read-object write-object) comp-utl))